home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64
/
turtle-demo 5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
408b
|
21 lines
1 rem turtle-demo: 'schnee'
2 rem n. heusler 11.91
3 :
10 sys49152
20 input"iterationstiefe 3[157][157][157]";it:ifit>4then20
30 !graphics:!init:le=160
40 !pen0:!move(320-le)/2,150:!angle330:!pen1
50 gosub100:!turnr120:gosub100:!turnr120:gosub100
60 poke198,.:wait198,1:poke198,.:end
100 ie=ie+1:ifie>itthen:!walkle:goto200
110 !pushle:le=le/3
120 gosub100
130 !turnl60
140 gosub100
150 !turnr120
160 gosub100
170 !turnl60
180 gosub100
190 !pullle
200 ie=ie-1:return